home *** CD-ROM | disk | FTP | other *** search
/ Talisman BBS - Support Disks / Talisman bbs - Novaterm 9.3.D64 / nova.File copier (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  2.1 KB  |  61 lines
  1. 10 poke45,peek(174):poke46,peek(175):clr
  2. 20 sp$="                                       "
  3. 30 dx=peek(186):dv$="0:":open15,dx,15:dimf$(80),t$(80):open9,0
  4. 70 print"[147][206]ovaterm 9.3 file copier":ml=4030
  5. 80 print"[211]ource: device 8  drive 0"
  6. 90 print"[196]est  : device 9  drive 0":p9=2
  7. 100 ifpeek(1023)thenprint"([210][193][205] expander is device"peek(1023)"[157])"
  8. 110 print""tab(15);:input#9,i$:a=val(i$):ifa<8ora>16thena=8
  9. 120 gosub520:iferthen110
  10. 130 dv=a
  11. 140 poke211,24:input#9,i$:a=val(i$):ifa>19then140
  12. 150 dv$=mid$(str$(a),2)+":":print
  13. 160 poke211,15:input#9,i$:a=val(i$):ifa<8ora>16thena=9
  14. 170 gosub520:iferthen160
  15. 180 dw=a
  16. 190 poke211,24:input#9,i$:a=val(i$):ifa>19then190
  17. 200 dw$=mid$(str$(a),2)+":":print
  18. 210 close15:open15,dv,15:open14,dw,15:ifpeek(1023)thenprint""
  19. 220 print"[208]attern match: [160][157]";:input#9,i$:ifi$="[160]"theni$="*"
  20. 230 print:print"[211]elect files for copying":print"[217][146]es  [206][146]o  [211][146]tart  [209][146]uit"
  21. 240 open1,dv,0,"$"+dv$+i$:input#15,e,e$:ife>19then420
  22. 250 get#1,a$,a$:sysml+3:print:printz$:fl=0
  23. 260 sysml+3:ifright$(z$,1)="."orright$(z$,4)="free"thenprintz$:goto360
  24. 270 ifmid$(z$,25,1)="r"then260
  25. 280 printz$"  copy?";
  26. 290 geta$:ifa$="n"thenpoke211,0:printsp$;:poke211,0:goto260
  27. 300 ifa$="s"thenpoke211,0:printsp$:goto360
  28. 310 ifa$="q"thenpoke211,0:printsp$:goto430
  29. 320 ifa$<>"y"then290
  30. 330 j=0:fori=7to23:ifmid$(z$,i,1)=chr$(34)thenj=i:i=23
  31. 340 next:f$=mid$(z$,7,j-7):iff$=","orf$=""thenpoke211,0:goto260
  32. 350 fl=fl+1:f$(fl)=f$:t$(fl)=mid$(z$,25,1):print"[157][157][157][157][157]     ":iffl<80then260
  33. 360 print:close1:iffl=0then430
  34. 361 print"[193][146]sk, [210][146]eplace, or [211][146]kip":print"existing files?  [146][157]";
  35. 362 geta$:ex=-(a$="a")-2*(a$="r")-3*(a$="s"):ifex=0then362
  36. 363 printchr$(asc(a$)+128):print
  37. 370 fori=1tofl:i$=f$(i):print"[195]opying "i$","t$(i);
  38. 380 open2,dv,2,dv$+i$:input#15,e,e$:ife>19then410
  39. 390 open3,dw,3,dw$+i$+","+t$(i)+",w":input#14,e,e$:ife<>63then399
  40. 391 ifex=3then410
  41. 392 ifex=2ore=0thenclose3:print#14,"s"dw$i$:goto390
  42. 393 printtab(28)"replace?";:poke211,28
  43. 394 geta$:ifa$<>"y"anda$<>"n"then394
  44. 395 ifa$="n"thene$="not copied":goto410
  45. 396 print"        ";:poke211,28:e=0:goto392
  46. 399 ife>19then410
  47. 400 sysml
  48. 410 close2:close3:printtab(28)e$:next:goto430
  49. 420 print:printe$
  50. 430 close1:close14:close15:print"[195]opy more files?  [146][157]";
  51. 440 geta$:ifa$<>"y"anda$<>"n"then440
  52. 450 ifa$="y"thenprint"yes":goto70
  53. 460 print"no"
  54. 470 ifpeek(6)<255thenend
  55. 480 close15:open15,dx,15:open2,dx,0,"prog menu":input#15,e:close2:ife>19then500
  56. 490 load"prog menu",dx
  57. 500 open2,dx,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
  58. 510 load"novaterm ?.?*",dx,1
  59. 520 er=0:close16:open16,a,15:close16:if128andstthener=1
  60. 530 return
  61.